home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2002 January / january_2002.iso / Piposh Special / Piposh / QUES.DXR / 00136.ls < prev    next >
Encoding:
Text File  |  2004-12-06  |  578 b   |  30 lines
  1. on exitFrame
  2.   global cards, whereto
  3.   robo = 0
  4.   if whereto = "poz" then
  5.     repeat with i = 1 to 6
  6.       if item i of cards = "0" then
  7.         robo = 1
  8.       end if
  9.     end repeat
  10.     if robo = "0" then
  11.       go(1, the moviePath & "enter5.dxr")
  12.     else
  13.       sprite(65).visible = 0
  14.       go("regular")
  15.     end if
  16.   else
  17.     repeat with i = 1 to 8
  18.       if item i of cards = "0" then
  19.         robo = 1
  20.       end if
  21.     end repeat
  22.     if robo = "0" then
  23.       go(1, the moviePath & "enter6.dxr")
  24.     else
  25.       sprite(65).visible = 0
  26.       go("regular")
  27.     end if
  28.   end if
  29. end
  30.